home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
tlx_sq21.zip
/
SSL.SLT
< prev
next >
Wrap
Text File
|
1992-02-06
|
1KB
|
36 lines
//-----------------------------------------------------------
// SSL.SL? Save Status Line.
// Please look at the comments through the whole file, and modify to
// suit your needs, BEFORE you use it. Then recompile with CS SSL.
//-----------------------------------------------------------
// If you have suggestions for improving this script, please suggest
// improvements to me via old-fashioned snail-mail to:
// Author: Inge Vabekk
// Hamangskogen 108
// N-1300 SANDVIKA
// NORWAY
// tel. (472) 546 396
//-----------------------------------------------------------
// Script starts here.
//-----------------------------------------------------------
main()
{
str sline [5]; // Room for (part of) status line.
int number; // Line number.
for (number=0; number<54;++number) // Find status line.
{ vgetchrs(50,number,sline,0,5);
if (subchr(sline,0)==179 && subchr(sline,4)==179)
break;
else if (number==0) // Skip lines 1-23.
number = 23;
}
if (number >= 54) number=0;
return (number); // Return line number.
}